# Replicação Artigo 8 - Desinstitucionalização e resiliência dos conselhos no governo Bolsonaro


# Preparativos -----------------------------------------------------------------

pacman::p_load(tidyverse, rio)

diretorio <- "C:/Users/carlo/Documents/IESP/DADOS/n.4/ARTIGO 8 - dados-2022-0118-20221202201013"
setwd(diretorio)

banco <- import("C:/Users/carlo/Documents/IESP/DADOS/n.4/ARTIGO 8 - dados-2022-0118-20221202201013/Dicionário de variáveis e banco de conselhos nacionais (1).xlsx")

# Replicação -------------------------------------------------------------------

#a seguir replico as tabelas utilizadas para fazer as figuras. As figuras em si
#repliquei no excel, assim como feito nos documentos enviados pelos autores

#Fig 1
tab_fig_1 <- banco |>
  mutate(tipo_legislacao_2 = case_when(
    tipo_legislacao == "Lei" ~ "Lei",
    tipo_legislacao == "Decreto" ~ "Norma Infralegal",
    tipo_legislacao == "Portaria" ~ "Norma Infralegal",
    tipo_legislacao == "Resolução" ~ "Norma Infralegal")) |>
  count(tipo_legislacao_2, nova_regulamentacao) |>
  pivot_wider(names_from = tipo_legislacao_2, values_from = n)
  

#Fig 2
tab_fig_2 <- banco |>
  count(status_atividade, status_normativo)


#Fig 3
tab_total_area <- banco |>
  mutate(revogado = (ifelse(status_normativo == "revogado", 1, 0))) |>
  count(area_politica)

tab_fig_3 <- banco |>
  mutate(revogado = (ifelse(status_normativo == "revogado", 1, 0))) |>
  count(area_politica, revogado)


#Fig 4 e 5
tab_fig_4 <- banco |>
  count(area_politica, status_atividade, status_normativo)





